home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_118901.txt < prev    next >
Text File  |  1990-08-14  |  5KB  |  226 lines
  1. -- card: 118901 from stack: in
  2. -- bmap block id: 119205
  3. -- flags: 4000
  4. -- background id: 114030
  5. -- name: Open Dialog
  6. ----- HyperTalk script -----
  7. on groupOne
  8.   if hilite of target then
  9.     lock screen
  10.     go to card short name of target of this background
  11.     unlock screen
  12.   else
  13.     repeat with index = 2 to 10
  14.       set hilite of button id index to false
  15.     end repeat
  16.     set hilite of target to true
  17.   end if
  18. end groupOne
  19.  
  20. on closeCard
  21.   repeat with index = 3 to 10
  22.     set hilite of button id index to false
  23.   end repeat
  24.   set hilite of button id 2 to true
  25. end closeCard
  26.  
  27.  
  28. -- part 1 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=0 top=0 right=342 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 2 (button)
  43. -- low flags: 00
  44. -- high flags: 4000
  45. -- rect: left=95 top=93 right=109 bottom=296
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Attendance Report
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   groupOne
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 3 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=95 top=109 right=125 bottom=296
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Letter
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   groupOne
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=95 top=125 right=141 bottom=296
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Report Card
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   groupOne
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 5 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=95 top=141 right=157 bottom=296
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111.  
  112.  
  113. -- part 6 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=95 top=157 right=173 bottom=296
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 
  125.  
  126.  
  127. -- part 7 (button)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=95 top=173 right=189 bottom=296
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: 
  139.  
  140.  
  141. -- part 8 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=95 top=189 right=205 bottom=296
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: 
  153.  
  154.  
  155. -- part 9 (button)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=95 top=205 right=221 bottom=296
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: 
  167.  
  168.  
  169. -- part 10 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=95 top=221 right=237 bottom=296
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: 
  181.  
  182.  
  183. -- part 11 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=339 top=192 right=208 bottom=417
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Open
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   repeat with index = 2 to 10
  198.     if hilite of button id index then
  199.       lock screen
  200.       go to card short name of button id index of this background
  201.       unlock screen
  202.       exit repeat
  203.     end if
  204.   end repeat
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 12 (button)
  210. -- low flags: 00
  211. -- high flags: 2000
  212. -- rect: left=339 top=217 right=233 bottom=417
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Cancel
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   go back
  224. end mouseUp
  225.  
  226.